Dim oFSO, oApp, oFolderCopy, oShell 
Dim strFontsPath, strScriptPath 
Set oFSO = CreateObject("Scripting.FileSystemObject") 
Set oShell = CreateObject("WScript.Shell") 
Set oApp = CreateObject("Shell.Application") 
strScriptPath = WScript.ScriptFullName 
strScriptPath = left(strScriptPath,instrrev(strScriptPath,"\")) 
strFontsPath = oShell.ExpandEnvironmentStrings("%WINDIR%") & "\Fonts" 
Set oFolderCopy = oApp.Namespace(strScriptPath & "DATA-TBSGAMEPACK_LANGZHCN\FONTS") 
For Each oFont In oFolderCopy.Items 
oApp.Namespace(strFontsPath).CopyHere oFont 
Next 
Set oFolderCopy = Nothing 
Set oApp = Nothing 
Set oShell = Nothing